Manipulate[
Show[
ContourPlot3D[z==1+E^x*Sin[y],{x,-1,1},{y,0,π},{z,0,1+E},AxesOrigin->{0,0,0},ImageSize->600],
ParametricPlot3D[{x,y,0},{x,-1,1},{y,0,π}],
ParametricPlot3D[{{x,0,z},{x,π,z}},{x,-1,1},{z,0,1}],
ParametricPlot3D[{{1,y,z},{-1,y,z}},{y,0,π},{z,0,1+E},PlotStyle->Opacity[0.5*P],Mesh->False]
],{{P,0,"Show x=1,x=-1 Planes"},{0,1}}]